Imports Microsoft.VisualBasic
Imports System.Data.Sql
Imports System.Data.SqlClient
Imports System
Imports System.Data
Imports GTSDAL
Imports GTSDALTableAdapters

Namespace GTSSystem.BLL
    <System.ComponentModel.DataObject()> _
    Public Class Status

        Private _statusAdaptor As StatusTableAdapter = Nothing

        Protected ReadOnly Property StatusAdaptor() As StatusTableAdapter
            Get
                If _statusAdaptor Is Nothing Then
                    _statusAdaptor = New StatusTableAdapter
                End If
                Return _statusAdaptor
            End Get
        End Property

        'place before lookup statements
        <System.ComponentModel.DataObjectMethod(ComponentModel.DataObjectMethodType.Select, True)> _
        Public Shared Function getStatus() As StatusDataTable
            Try
                Dim StatusAdaptor As New GTSDALTableAdapters.StatusTableAdapter
                Return StatusAdaptor.GetStatus()
            Catch ex As Exception
                Throw
            End Try
        End Function
    End Class
End Namespace